home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g13.bas < prev    next >
BASIC Source File  |  1991-10-18  |  461b  |  18 lines
  1. 100 ' G13 T.WAKAMATSU
  2. 110 C(1)=7:C(2)=3:C(3)=2:C(4)=6:C(5)=4:C(6)=5:C(7)=1
  3. 120 P=5.4!
  4. 130 Z=0:R=0:L=1:CLS
  5. 140 FOR T=0 TO 1860 STEP P
  6. 150   Z=Z+.5!:R=R+.2!:L=L+.02!:M=INT(L)
  7. 160   X=Z*SIN(T)+320:Y=Z*COS(T)+240
  8. 170   LINE(X-R,Y-R)-(X+R,Y+R),PSET,C(M),B
  9. 180 NEXT T
  10. 190 FOR D=1 TO 4500:NEXT D
  11. 200 Z=0:R=0
  12. 210 FOR T=0 TO 1860 STEP P
  13. 220   Z=Z+.5!:R=R+.2!
  14. 230   X=Z*SIN(T)+320:Y=Z*COS(T)+240
  15. 240   LINE(X-R,Y-R)-(X+R,Y+R),PSET,0,B
  16. 250 NEXT T
  17. 260 CLS
  18.